home *** CD-ROM | disk | FTP | other *** search
/ Star Trek Starfleet Academy Mini Omnipedia / MINI_OMNI.ISO / pc / omni_v2.dxr / 00300_over the MODEbase cast in help.ls < prev    next >
Encoding:
Text File  |  1996-04-15  |  345 b   |  14 lines
  1. on mouseDown
  2.   global gImInHelp, oHelpRoll, oINTERfaceModes
  3.   if not gImInHelp then
  4.     hputmsg("mousedown on modebasecast calling hcallmodes")
  5.     hCallModes()
  6.   else
  7.     if the castNum of sprite 40 = the number of cast "encyclopedia base" then
  8.       hHelpmoderoll(40)
  9.       mSetHelpMode(oHelpRoll, 1)
  10.     end if
  11.   end if
  12.   dontPassEvent()
  13. end
  14.